home *** CD-ROM | disk | FTP | other *** search
/ Art Fundamentals - Core Concepts in Art / Art Fundamentals: Core Concepts in Art.iso / pc / color.dxr / 00189.ls < prev    next >
Encoding:
Text File  |  2001-07-16  |  614 b   |  17 lines
  1. on mouseUp me
  2.   global warmtreesr, warmtreesg, warmtreesb, iconfade
  3.   showit(36, 38)
  4.   set the blend of sprite 50 to 100
  5.   repeat with iconfade = 47 to 49
  6.     set the blend of sprite iconfade to 50
  7.   end repeat
  8.   repeat with iconfade = 51 to 54
  9.     set the blend of sprite iconfade to 50
  10.   end repeat
  11.   set the memberNum of sprite 36 to 23
  12.   sprite(50).color = rgb(warmtreesr, warmtreesg, warmtreesb)
  13.   sprite(45).color = rgb(warmtreesr, warmtreesg, warmtreesb)
  14.   sprite(46).color = rgb(warmtreesr - 60, warmtreesg - 60, warmtreesb - 60)
  15.   set the locH of sprite 38 to 439 + (warmtreesg * 0.78400000000000003)
  16. end
  17.